home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / card_4163.txt < prev    next >
Text File  |  1987-09-04  |  1KB  |  67 lines
  1. -- card: 4163 from stack: in.1a2
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3800
  5. -- name: Clipping
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global clippingStr
  9.   put clippingStr into field clipping
  10.   set visible of card field "about clipping" to false
  11.  
  12. end openCard
  13.  
  14. on closeCard
  15.   global clippingStr
  16.   put field clipping into clippingStr
  17. end CloseCard
  18.  
  19.  
  20. -- part 8 (field)
  21. -- low flags: 81
  22. -- high flags: 2004
  23. -- rect: left=70 top=72 right=238 bottom=435
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: About Clipping
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   set visible of card field "About Clipping" to false
  35. end mouseUp
  36.  
  37.  
  38. -- part 9 (button)
  39. -- low flags: 00
  40. -- high flags: 0000
  41. -- rect: left=256 top=271 right=293 bottom=282
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 19678 / 19678
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   set visible of card field "about clipping" to true
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part contents for card part 8
  58. ----- text -----
  59. About the Clipping Card Commands‚Ķ
  60.  
  61. Clear - Clear the text in this card
  62.  
  63. Text - Save text in a file
  64.  
  65. Save - Copy text to a new card in stack "clipping"
  66.  
  67. Clip Stack - Go to stack "clipping"